1 IFDIS=0THENDIS=1:GOSUB60000
5 REM ******* DOSPLUS CREATOR *******
10 REM EXTRA SPACES ADDED FOR CLARITY
20 IF RWK THEN GOSUB 200:GOTO 70
30 POKE 53280,6:PRINT CHR$(147):RW=34
40 PRINT TAB(2)"PUT THE TEST/DEMO DISK IN THE DRIVE":GOSUB 180
50 PRINT TAB(82)"THE OLD DOS 5.1 IS NOW LOADING....."
60 LOAD"DOS 5.1",8,1
70 PRINT TAB(82)"NEW DOSPLUS DATA IS NOW LOADING...."
80 FOR I=52000 TO 52223:READ A:POKE I,A:CK=CK+A:NEXT
90 FOR J=52278 TO 52443:READ B:POKE J,B:CK=CK+B:NEXT
100 FOR K=53080 TO 53247:READ C:POKE K,C:CK=CK+C:NEXT
110 POKE 52570,32:POKE 52571,106
120 IF CK <> 58416 THEN PRINT TAB(87)"ERROR IN DATA STATEMENTS":STOP
130 GOSUB 200:PRINT TAB(82)"PUT DISK TO RECEIVE DOSPLUS IN DRIVE":GOSUB 180
140 PRINT TAB(82)"NOW SAVING DOSPLUS TO DISK.........."
150 POKE 43,32:POKE 44,203:POKE 45,255:POKE 46,207:SAVE"DOSPLUS",8,1
160 POKE 43,1:POKE 44,8:POKE 45,3:POKE 46,8:GOSUB 200
170 PRINT TAB(56)"DONE":FOR I=1 TO 3000:NEXT:PRINT CHR$(147):SYS 52224:NEW
180 PRINT TAB(43) CHR$(18) CHR$(159)" PRESS F3 WHEN READY TO CONTINUE "
190 GET K$:IF K$ <> CHR$(134) THEN 190
200 PRINT CHR$(150):FOR I=1 TO 20:PRINT"* ";:NEXT:PRINT CHR$(154);:RETURN
500 DATA 201,42,240,4,76,82,204,52,32,204,255,169,8,170,160,15,32
505 DATA 186,255,169,2,162,123,160,203,32,189,255,32,192,255,160,16,162
510 DATA 251,32,179,238,232,208,250,200,208,245,162,8,32,198,255,160,3
515 DATA 32,207,255,136,208,250,169,13,32,210,255,32,207,255,201,44,240
520 DATA 6,32,210,255,76,94,203,169,20,32,210,255,169,8,32,195,255
525 DATA 32,204,255,76,228,207,85,74,187,187,187,169,139,160,203,141,10
530 DATA 3,140,11,3,96,169,0,133,13,32,115,0,201,36,240,10,201
535 DATA 37,240,65,32,121,0,76,141,174,32,209,203,32,115,0,144,11
540 DATA 201,65,144,31,201,71,176,27,56,233,7,56,233,48,72,165,97
545 DATA 240,7,24,105,4,176,14,133,97,104,240,222,32,126,189,76,163
550 DATA 203,76,121,0,76,126,185,169,0,162,10,149,93,202,16,251,96
555 DATA 32,209,203,32,115,0,201,50,176,230,201,48,144,226,233,48,72
560 DATA 165,97,240,4,230,97,240,218,104,240,231,32,126,189,76,222,203
565 DATA 0,187,187,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52,52
570 DATA 52,52,52,52,52,52,52,52,52,52,52,173,39,204,201,75,240
575 DATA 1,96,169,100,160,204,32,30,171,76,116,164,75,79,66,69,82,0
580 DATA 173,39,204,201,85,240,3,76,32,203,76,173,207,8,187,79,94
585 DATA 13,13,32,32,32,32,32,32,68,79,83,32,77,65,78,65,71
590 DATA 69,82,32,86,54,46,53,45,49,47,49,47,56,53,13,13,32
595 DATA 32,32,32,32,32,32,32,32,32,64,42,32,84,79,32,82,69
600 DATA 83,69,84,32,68,73,83,75,13,13,32,32,158,65,85,84,79
605 DATA 32,72,69,88,45,69,78,84,82,89,32,65,68,68,69,68,32
610 DATA 49,49,47,49,47,56,52,32,82,87,75,154
615 DATA 76,138,207,0,187,187,187,187,13,32,32,18,32,85,78,78,69
620 DATA 87,32,146,32,65,68,68,69,68,32,56,47,49,54,47,56,52
625 DATA 32,66,89,32,66,79,66,32,75,79,66,69,82,13,13,0,169
630 DATA 96,160,207,32,30,171,169,64,141,119,2,169,36,141,120,2,169
635 DATA 157,141,121,2,169,157,141,122,2,169,4,133,198,76,128,203,187
640 DATA 160,3,200,177,43,208,251,200,200,152,160,0,145,43,165,44,200
645 DATA 145,43,133,60,160,0,132,59,162,0,200,208,2,230,60,177,59
650 DATA 208,245,232,224,3,208,242,200,208,2,230,60,132,45,164,60,132
655 DATA 46,76,131,164,173,134,2,72,173,33,208,141,134,2,169,252,160
660 DATA 207,32,30,171,104,141,134,2,32,116,164,82,87,75,0
60000 T$="                         ":C=0:C$="":PRINT"[147]":POKE53281,0
60030 PRINTSPC(7)""T$:PRINTSPC(7)"     [196]OS[208]LUS [195]REATOR     [146]"
60051 PRINTSPC(7)""T$:PRINT:PRINTTAB(18)"BY"
60060 PRINT:PRINTSPC(14)"[210].[215]. [203]OBER"
60070 PRINT:PRINTSPC(12)"[195]OPYRIGHT 1985"
60080 PRINT:PRINT:PRINT:PRINT"     [204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
60090 PRINT:PRINT"  [208]LEASE RESPECT THE AUTHOR'S RIGHTS."
60100 PRINT:PRINT"      [208]RESS SPACE BAR TO CONTINUE."
60110 FORCC=1TO48:GETK$:IFK$=" "THEN60130
60120 IFCC=1THENPRINTMID$(C$,C+2,1)"[145][145]";:C=NOT(C)
60125 NEXT:GOTO60100
60130 PRINTC$:RETURN